
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tSolicitudes



# Region "tAreas"

		private mtAreas As New tAreas

		Public Property tAreas As tAreas
        Get
                mtAreas = mtAreas.TraerFiltradoListOf("IdAreas", Me.IdAreas).Item(0)
        Return mtAreas
        End Get
        Set
             If ((mtAreas Is Nothing) Or (Me.tAreas.Equals(value) = False)) Then
                If Not (Me.tAreas Is Nothing)
	               Dim oldtAreas As tAreas = Me.tAreas
                   Me.mtAreas = Nothing
                   oldtAreas.RemoveListatSolicitudes(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtAreas = value
                   Me.tAreas.AddListatSolicitudes(Me)
            	End If
             End If
        End Set
       End Property

# End Region



# Region "tCargos"

		private mtCargos As New tCargos

		Public Property tCargos As tCargos
        Get
                mtCargos = mtCargos.TraerFiltradoListOf("IdCargos", Me.IdCargos).Item(0)
        Return mtCargos
        End Get
        Set
             If ((mtCargos Is Nothing) Or (Me.tCargos.Equals(value) = False)) Then
                If Not (Me.tCargos Is Nothing)
	               Dim oldtCargos As tCargos = Me.tCargos
                   Me.mtCargos = Nothing
                   oldtCargos.RemoveListatSolicitudes(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtCargos = value
                   Me.tCargos.AddListatSolicitudes(Me)
            	End If
             End If
        End Set
       End Property

# End Region



# Region "tEmpresas"

		private mtEmpresas As New tEmpresas

		Public Property tEmpresas As tEmpresas
        Get
                mtEmpresas = mtEmpresas.TraerFiltradoListOf("IdEmpresa", Me.IdEmpresa).Item(0)
        Return mtEmpresas
        End Get
        Set
             If ((mtEmpresas Is Nothing) Or (Me.tEmpresas.Equals(value) = False)) Then
                If Not (Me.tEmpresas Is Nothing)
	               Dim oldtEmpresas As tEmpresas = Me.tEmpresas
                   Me.mtEmpresas = Nothing
                   oldtEmpresas.RemoveListatSolicitudes(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtEmpresas = value
                   Me.tEmpresas.AddListatSolicitudes(Me)
            	End If
             End If
        End Set
       End Property

# End Region



# Region "tMunicipios"

		private mtMunicipios As New tMunicipios

		Public Property tMunicipios As tMunicipios
        Get
                mtMunicipios = mtMunicipios.TraerFiltradoListOf("IdMunicipio", Me.IdMunicipio).Item(0)
        Return mtMunicipios
        End Get
        Set
             If ((mtMunicipios Is Nothing) Or (Me.tMunicipios.Equals(value) = False)) Then
                If Not (Me.tMunicipios Is Nothing)
	               Dim oldtMunicipios As tMunicipios = Me.tMunicipios
                   Me.mtMunicipios = Nothing
                   oldtMunicipios.RemoveListatSolicitudes(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtMunicipios = value
                   Me.tMunicipios.AddListatSolicitudes(Me)
            	End If
             End If
        End Set
       End Property

# End Region
# Region "tDiscapacidad_x_Solicitud"
	private mlistatDiscapacidad_x_Solicitud As New List (Of tDiscapacidad_x_Solicitud)
Public Property ListatDiscapacidad_x_Solicitud As System.Collections.Generic.List(Of tDiscapacidad_x_Solicitud)
Get
dim mtDiscapacidad_x_Solicitud As New tDiscapacidad_x_Solicitud
mlistatDiscapacidad_x_Solicitud =mtDiscapacidad_x_Solicitud.TraerFiltradoListOf("IdSolicitud",Me.IdSolicitud)
Return mlistatDiscapacidad_x_Solicitud
End Get
Set
RemoveAllListatDiscapacidad_x_Solicitud()
If Not (Value Is Nothing) Then
Dim otDiscapacidad_x_Solicitud As tDiscapacidad_x_Solicitud
	For Each otDiscapacidad_x_Solicitud in Value
		AddListatDiscapacidad_x_Solicitud(otDiscapacidad_x_Solicitud)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatDiscapacidad_x_Solicitud(newtDiscapacidad_x_Solicitud As tDiscapacidad_x_Solicitud)
	If (mlistatDiscapacidad_x_Solicitud Is Nothing) Then
		mlistatDiscapacidad_x_Solicitud = new System.Collections.Generic.List(Of tDiscapacidad_x_Solicitud)
	End If
	If Not mlistatDiscapacidad_x_Solicitud.Contains(newtDiscapacidad_x_Solicitud) Then
		mlistatDiscapacidad_x_Solicitud.Add(newtDiscapacidad_x_Solicitud)
		newtDiscapacidad_x_Solicitud.tSolicitudes = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatDiscapacidad_x_Solicitud(oldtDiscapacidad_x_Solicitud As tDiscapacidad_x_Solicitud)
	If (mlistatDiscapacidad_x_Solicitud.Contains(oldtDiscapacidad_x_Solicitud)) Then
		mlistatDiscapacidad_x_Solicitud.Remove(oldtDiscapacidad_x_Solicitud)
		oldtDiscapacidad_x_Solicitud.tSolicitudes = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatDiscapacidad_x_Solicitud()
	If Not (mlistatDiscapacidad_x_Solicitud Is Nothing)
		Dim tmp_listatDiscapacidad_x_Solicitud As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtDiscapacidad_x_Solicitud As tDiscapacidad_x_Solicitud
		For Each oldtDiscapacidad_x_Solicitud in mlistatDiscapacidad_x_Solicitud
			tmp_listatDiscapacidad_x_Solicitud.Add(oldtDiscapacidad_x_Solicitud)
		Next
	mlistatDiscapacidad_x_Solicitud.Clear()
	For Each oldtDiscapacidad_x_Solicitud in tmp_listatDiscapacidad_x_Solicitud
		oldtDiscapacidad_x_Solicitud = Nothing
	Next
	tmp_listatDiscapacidad_x_Solicitud.Clear()
	End If
End Sub

# End Region
# Region "tEstudio_x_Solicitud"
	private mlistatEstudio_x_Solicitud As New List (Of tEstudio_x_Solicitud)
Public Property ListatEstudio_x_Solicitud As System.Collections.Generic.List(Of tEstudio_x_Solicitud)
Get
dim mtEstudio_x_Solicitud As New tEstudio_x_Solicitud
mlistatEstudio_x_Solicitud =mtEstudio_x_Solicitud.TraerFiltradoListOf("IdSolicitud",Me.IdSolicitud)
Return mlistatEstudio_x_Solicitud
End Get
Set
RemoveAllListatEstudio_x_Solicitud()
If Not (Value Is Nothing) Then
Dim otEstudio_x_Solicitud As tEstudio_x_Solicitud
	For Each otEstudio_x_Solicitud in Value
		AddListatEstudio_x_Solicitud(otEstudio_x_Solicitud)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatEstudio_x_Solicitud(newtEstudio_x_Solicitud As tEstudio_x_Solicitud)
	If (mlistatEstudio_x_Solicitud Is Nothing) Then
		mlistatEstudio_x_Solicitud = new System.Collections.Generic.List(Of tEstudio_x_Solicitud)
	End If
	If Not mlistatEstudio_x_Solicitud.Contains(newtEstudio_x_Solicitud) Then
		mlistatEstudio_x_Solicitud.Add(newtEstudio_x_Solicitud)
		newtEstudio_x_Solicitud.tSolicitudes = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatEstudio_x_Solicitud(oldtEstudio_x_Solicitud As tEstudio_x_Solicitud)
	If (mlistatEstudio_x_Solicitud.Contains(oldtEstudio_x_Solicitud)) Then
		mlistatEstudio_x_Solicitud.Remove(oldtEstudio_x_Solicitud)
		oldtEstudio_x_Solicitud.tSolicitudes = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatEstudio_x_Solicitud()
	If Not (mlistatEstudio_x_Solicitud Is Nothing)
		Dim tmp_listatEstudio_x_Solicitud As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtEstudio_x_Solicitud As tEstudio_x_Solicitud
		For Each oldtEstudio_x_Solicitud in mlistatEstudio_x_Solicitud
			tmp_listatEstudio_x_Solicitud.Add(oldtEstudio_x_Solicitud)
		Next
	mlistatEstudio_x_Solicitud.Clear()
	For Each oldtEstudio_x_Solicitud in tmp_listatEstudio_x_Solicitud
		oldtEstudio_x_Solicitud = Nothing
	Next
	tmp_listatEstudio_x_Solicitud.Clear()
	End If
End Sub

# End Region
# Region "tTrabajos"
	private mlistatTrabajos As New List (Of tTrabajos)
Public Property ListatTrabajos As System.Collections.Generic.List(Of tTrabajos)
Get
dim mtTrabajos As New tTrabajos
mlistatTrabajos =mtTrabajos.TraerFiltradoListOf("IdSolicitud",Me.IdSolicitud)
Return mlistatTrabajos
End Get
Set
RemoveAllListatTrabajos()
If Not (Value Is Nothing) Then
Dim otTrabajos As tTrabajos
	For Each otTrabajos in Value
		AddListatTrabajos(otTrabajos)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatTrabajos(newtTrabajos As tTrabajos)
	If (mlistatTrabajos Is Nothing) Then
		mlistatTrabajos = new System.Collections.Generic.List(Of tTrabajos)
	End If
	If Not mlistatTrabajos.Contains(newtTrabajos) Then
		mlistatTrabajos.Add(newtTrabajos)
		newtTrabajos.tSolicitudes = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatTrabajos(oldtTrabajos As tTrabajos)
	If (mlistatTrabajos.Contains(oldtTrabajos)) Then
		mlistatTrabajos.Remove(oldtTrabajos)
		oldtTrabajos.tSolicitudes = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatTrabajos()
	If Not (mlistatTrabajos Is Nothing)
		Dim tmp_listatTrabajos As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtTrabajos As tTrabajos
		For Each oldtTrabajos in mlistatTrabajos
			tmp_listatTrabajos.Add(oldtTrabajos)
		Next
	mlistatTrabajos.Clear()
	For Each oldtTrabajos in tmp_listatTrabajos
		oldtTrabajos = Nothing
	Next
	tmp_listatTrabajos.Clear()
	End If
End Sub

# End Region
# Region "tVisita_Solicitud"
	private mlistatVisita_Solicitud As New List (Of tVisita_Solicitud)
Public Property ListatVisita_Solicitud As System.Collections.Generic.List(Of tVisita_Solicitud)
Get
dim mtVisita_Solicitud As New tVisita_Solicitud
mlistatVisita_Solicitud =mtVisita_Solicitud.TraerFiltradoListOf("IdSolicitud",Me.IdSolicitud)
Return mlistatVisita_Solicitud
End Get
Set
RemoveAllListatVisita_Solicitud()
If Not (Value Is Nothing) Then
Dim otVisita_Solicitud As tVisita_Solicitud
	For Each otVisita_Solicitud in Value
		AddListatVisita_Solicitud(otVisita_Solicitud)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatVisita_Solicitud(newtVisita_Solicitud As tVisita_Solicitud)
	If (mlistatVisita_Solicitud Is Nothing) Then
		mlistatVisita_Solicitud = new System.Collections.Generic.List(Of tVisita_Solicitud)
	End If
	If Not mlistatVisita_Solicitud.Contains(newtVisita_Solicitud) Then
		mlistatVisita_Solicitud.Add(newtVisita_Solicitud)
		newtVisita_Solicitud.tSolicitudes = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatVisita_Solicitud(oldtVisita_Solicitud As tVisita_Solicitud)
	If (mlistatVisita_Solicitud.Contains(oldtVisita_Solicitud)) Then
		mlistatVisita_Solicitud.Remove(oldtVisita_Solicitud)
		oldtVisita_Solicitud.tSolicitudes = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatVisita_Solicitud()
	If Not (mlistatVisita_Solicitud Is Nothing)
		Dim tmp_listatVisita_Solicitud As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtVisita_Solicitud As tVisita_Solicitud
		For Each oldtVisita_Solicitud in mlistatVisita_Solicitud
			tmp_listatVisita_Solicitud.Add(oldtVisita_Solicitud)
		Next
	mlistatVisita_Solicitud.Clear()
	For Each oldtVisita_Solicitud in tmp_listatVisita_Solicitud
		oldtVisita_Solicitud = Nothing
	Next
	tmp_listatVisita_Solicitud.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tSolicitudes)
            Dim dtDatos As DataTable
            Dim listatSolicitudes As New List(Of tSolicitudes)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtSolicitudes As New tSolicitudes
				mtSolicitudes.IdSolicitud = CType(dr.Item("IdSolicitud"),Integer)
				mtSolicitudes.Traer_objeto()
            	listatSolicitudes.Add( mtSolicitudes)
    		Next dr
Return listatSolicitudes
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tSolicitudes)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatSolicitudes As New List(Of tSolicitudes)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtSolicitudes As New tSolicitudes
				mtSolicitudes.IdSolicitud = CType(dr.Item("IdSolicitud"),Integer)
				mtSolicitudes.Traer_objeto()
            	listatSolicitudes.Add( mtSolicitudes)
    		Next dr
Return listatSolicitudes
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tSolicitudes)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatSolicitudes As New List(Of tSolicitudes)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtSolicitudes As New tSolicitudes
				mtSolicitudes.IdSolicitud = CType(dr.Item("IdSolicitud"),Integer)
				mtSolicitudes.Traer_objeto()
            	listatSolicitudes.Add( mtSolicitudes)
    		Next dr
Return listatSolicitudes
End Function
# End Region

End Class
End Namespace
